home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / epp_v1_1.lha / EPP / PModules / exp.e < prev    next >
Text File  |  1993-06-26  |  121b  |  10 lines
  1. OPT TURBO
  2.  
  3. PROC exp (n, p)
  4.   /* Computes n**p. */
  5.   DEF i, x = 1
  6.   FOR i := 1 TO p DO x := x * n
  7. ENDPROC  x
  8.   /* exp */
  9.  
  10.